home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / comm / net / AmiComSys.lha / AmiComSys / Install-images < prev    next >
Text File  |  2001-05-26  |  2KB  |  55 lines

  1. ; Install script for images for AmiComSys 1.25+
  2. ;
  3. ; $VER: AmiComSys-image-install 1.4 (26.05.2001) Håkan Parting
  4.  
  5. (set #selimages "Do you want to use the NewIcons graphics-buttons\nor the MagicWB-graphics-buttons?")
  6. (set #selimageshelp "This version of AmiComSys have graphics here and there.\nDo you want MagicWB style graphics or the NewIcons one?\nIf you have installed a replacement graphics-set, you'd better\nspecify that. If not it would be overwritten.")
  7.  
  8.  
  9. (message
  10.     "Welcome to the AmiComSys image installer!\n\n"
  11.     "This will install one of the graphics sets.\n"
  12.     "NOTE: The installer for AmiComSys does that\n"
  13.     "automatically. But if you want to switch to\n"
  14.     "another use this script.\n"
  15.     "AmiComSys © Håkan Parting 1997-2001\n"
  16.     "Requires:\n"
  17.     "AmiComSys 1.25+ installed\n"
  18. )
  19.  
  20. (run "avail flush > NIL:") (run "avail flush > NIL:")
  21.  
  22. (message
  23.     "\n\n\nPlease make sure that no session of AmiComSys\nis running before you proceed with this\ninstallation.\n\nIf you get object in use errors please wait\n3 to 5 minutes and then try again."
  24. )
  25.  
  26. (set DefDir (getassign "AMICOMSYS"))
  27. (if (= DefDir "") (set DefDir (getassign "MIAMI")) )
  28. (if (= DefDir "") (set DefDir (getassign "AmiTCP")) )
  29. (if (= DefDir "") (set DefDir (getassign "Inet")) )
  30.  
  31. (set #target (askdir    (prompt "Please locate your AmiComSys directory.\nThis is the directory with the Images directory.")
  32.     (help "")
  33.     (default DefDir)
  34. ))
  35.  
  36. (set instdir #target)
  37. (set @default-dest instdir)
  38.  
  39. (if (< (exists (tackon instdir "images")) 2) (makedir (tackon instdir "images")) )
  40.  
  41. ; copy over files
  42.  
  43. (set imag (askchoice (choices "NewIcons - Brecht 'Darklite' Machiels (20 colours)" "RomIcons - Andreas Kuerzinger '01 (16 colours)" "MagicWB - Andreas Kuerzinger '00 (8 colours)" "MagicWB - Mads 'Yedo' Jensen '98 (8 colours)" "I've installed another replacement\ngfx-set. If so, make sure it's done for ACS 1.25+!")
  44.                     (prompt #selimages)
  45.                     (help #selimageshelp)
  46.                     (default 0)
  47. ))
  48.  
  49. (if (= imag 0) (copyfiles (source "NIImages") (dest (tackon instdir "Images")) (all)))
  50. (if (= imag 1) (copyfiles (source "RomIcons") (dest (tackon instdir "Images")) (all)))
  51. (if (= imag 2) (copyfiles (source "MWBImages") (dest (tackon instdir "Images")) (all)))
  52. (if (= imag 3) (copyfiles (source "MWBImages2") (dest (tackon instdir "Images")) (all)))
  53. (if (= imag 4) (message "Okey, why did you run this script anyway :)"))
  54.  
  55.